home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif…cial Edition 1999 Winter / cd 2.iso / pc / Media / Menu.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1999-11-15  |  490 b   |  24 lines
  1. on exitFrame
  2.   global son
  3.   sprite(13).visible = 0
  4.   repeat with n = 3 to 9
  5.     if rollOver(n) then
  6.       puppetSprite(n, 1)
  7.       set the castNum of sprite n to n + 10
  8.       next repeat
  9.     end if
  10.     puppetSprite(n, 0)
  11.   end repeat
  12.   repeat with c = 22 to 27
  13.     if rollOver(c) then
  14.       puppetSprite(c, 1)
  15.       son = 28 - c
  16.       set the soundLevel to son
  17.       set the castNum of sprite c to c + 20
  18.       next repeat
  19.     end if
  20.     puppetSprite(c, 0)
  21.   end repeat
  22.   go(the frame)
  23. end
  24.